home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST12.TRP < prev    next >
Text File  |  1995-03-19  |  184b  |  12 lines

  1. procedure main
  2.         writeln(f1(f2(2)));
  3. endProc
  4.  
  5. function f1(a : byte) : byte;
  6.         return a + a;
  7. endFunc
  8.  
  9. function f2(a : byte) : byte;
  10.         return 2 * a;
  11. endFunc
  12.